home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1988 August / 1988-08.d64 / 3d sprites.bas (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  41 lines
  1. 10 rem copyright 1988 compute! publications, inc. - all rights reserved
  2. 20 print"[147][154]   copyright 1988 compute! pub., inc."
  3. 30 printtab(11)"all rights reserved"
  4. 40 print"please wait about 40 seconds.":print"sys16384[145][145]";:ad=21504
  5. 50 fori=1to161:reada:z=z+a:next:ifz<>17628thenprint"data statement error":stop
  6. 60 restore:deffnlo(x)=x-256*int(x/256):deffnhi(x)=int(x/256)
  7. 70 deffnxt(x)=2*(xand252):deffnyt(y)=(yand7)+40*(yand248)
  8. 80 forx=0to159:pokead,fnlo(fnxt(x)):ad=ad+1:next
  9. 90 forx=0to159:pokead,fnhi(fnxt(x)):ad=ad+1:next
  10. 100 fory=0to199:pokead,fnlo(fnyt(y)):ad=ad+1:next
  11. 110 fory=0to199:pokead,fnhi(fnyt(y)):ad=ad+1:next
  12. 120 forx=0to24:pokead,fnlo(59392+40*x):ad=ad+1:next
  13. 130 forx=0to24:pokead,fnhi(59392+40*x):ad=ad+1:next:readp(0),p(1),p(3),p(4)
  14. 140 readc:ifc=99then190
  15. 150 gosub210:readp(2),p(5),e
  16. 160 forx=0to5:pokead+x,p(x):next
  17. 170 ad=ad+6:p(2)=p(2)+1:p(5)=p(5)+1:ifp(2)<=ethen160
  18. 180 readc:gosub210:goto140
  19. 190 forx=0to64:q=int(sin(x*(NULL)/128)*256+.5)-1:ifq=-1thenq=0
  20. 200 pokead,q:ad=ad+1:next:end
  21. 210 ifc=0thenreturn
  22. 220 forx=1toc:readv:pokead+x-1,v:next:ad=ad+c:return
  23. 230 data 189,0,157,0,8,165,1,41,248,133
  24. 240 data 1,162,0,144,160,159,0,0,208
  25. 250 data 176,223,6,232,240,3,76,10,87,0
  26. 260 data 140,136,143,10,232,208,229,165
  27. 270 data 1,9,7,133,1,96,8,165,1,41,248
  28. 280 data 133,1,162,0,144,224,159,0,0
  29. 290 data 208,240,223,6,232,240,3,76,250
  30. 300 data 87,0,140,200,143,10,232,208
  31. 310 data 229,165,1,9,7,133,1,96,8,165,1
  32. 320 data 41,248,133,1,162,0,160,144,175
  33. 330 data 0,0,176,208,191,6,232,240,3,76
  34. 340 data 234,88,0,136,140,139,10,232
  35. 350 data 208,229,165,1,9,7,133,1,96,8
  36. 360 data 165,1,41,248,133,1,162,0,224
  37. 370 data 144,239,0,0,240,208,255,6,232
  38. 380 data 240,3,76,218,89,0,200,140,203
  39. 390 data 10,232,208,229,165,1,9,7,133,1
  40. 400 data 96,99
  41.